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bhh ABA 
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Ztitle “OBJEXECHK = Senorot Checking Routines’ 
module objexechk 
ident="v04-000" ) = begin 


' 
'@eeeeererereeeeeeeeeteeteteneteeerereeeeTereReeeeeeeeeTeneeeeneeeeeneseeeeeE 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL FouiPment ¢ CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED ed A LICENSE AND MAY BE USED AND conic? 
'* ONLY ye WITH THE TERM F SUCH LICENSE AND WITH THE 


THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
RANSFERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 


te AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
:* CORPORATION. 


!@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
1@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


lee 
} Facility: VAKX/VMS Analyze Facility, General Checking Routines 


MEW —O DONO VF WN "0 COweo 


WAAww 


i Abstract: This module provides general checking routines for the 
ANALYZE/OBJECT and ANALYZE/IMAGE command image. 


a kk a a a tt tt a tt kt tt tk tk tk tt wt ss ss I 1 OOO 
- 
s 


SSSSSSSSSSSSSSSSSS3S 


' Environment: 


o 
So 
AAw 


‘ 
‘ 
' 
‘ 
‘ 
; 
Author: Paul C. Anagnostopoulos, Creation Date: 15 January 1980 

| Modified By: 

v03-002 MCNO158 Maria del C. Nasr 22-Mar-1984 
i 

' 


Serre 


WN 0 OBO WF wh - 0 0O@~ 


Add new parameter to ANLSCHECK *SYMBOL routine to indicate 
maximum size of symbol. Also, eliminate declaration for 
local loop counter 1. 


v03-001 PCA1011 Paul C. Anagnostopoulos 11-Apr-1983 
Change the message prefix to ANLOBJ$_ to ensure that 
message symbols are unique across alt ANALYZEs. This 
is necessitated by the new merged message tiles. 


SoSSeere 


Oe Se Oe Be Oe Se Ge Be Se Se Se Se Se Se Se Se Se Se Ge Ge Se Se Se Se Ge Ge Ge 
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: Tsbttl *Module Declarations’ : 


; Libraries and Requires: 


oO 


LESRENSSSSLESS SE 


a a at 8 tt a a a ws ss 8 te wt wt st a 2 a 


library ‘starlet’; 
require ‘objexereq’; 
' 

! Table of Contents: 


forward routine 
ani$check_symbol: novalue, 
ani$check_when: novalue, 
ani$check_ flags: novalue; 


' 
External References: 


external routine 
an\$format_error; 


i 
Own Variables: 


COCO OCOCOCOoCoOoO 
PADD AAA AD SIP SAAN 


_—— ot OOD 
WVFWN—OO@ 


Be Oe Be Oe Oe Be Oe Be Oe Os Be Be Oe Se Be Se Be Oe Se Be Se Se Be Be Se Fe SH Se Se Se Se Se Ge Se Se Se Se Gs Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Oe Ge 


6 
JEKE CHK OBJEKECHK = General Checking Routines 18.<8 -1984 : 36: Ax-11 Bliss-32 V4.0-74 
ihe ty ANLSCHECK SYNGE = Check validity of Symbol 1228 0b= 1 one $7138: 79 EANALYZ.SRe OBJEXECHK.B52;1 


Bsbetl "ANLSCHECK SYMBOL = Check Validity of Symbol’ 


— —>) 2 


: Funct tenet Description: 

: This routine is called to check the validity of a symbol, such 
as @ module name or a global name. 

i Formal Parameters: 
symbol The address of a descriptor of the symbol. 
sym_size Maximum size of symbol 

i Implicit Inputs: 

global data 

global data 


i Returned Value: 
H n 


' 

' 

' 

' 

' 

' 

' 

' 

' 

: Implicit Outputs: 
i 

' 

' 

' 

: Side Effects: 
' 


global routine ani$check_symbol (symbol, sym_size): novalue = begin 


bind 
symbol_dsc = .symbol: descriptor; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
bind 
symbol _table = ch$transtable( 


rep 32 of (false), 

rep 1 of (true), ' space 

rep 3of (false), 

rep 1 of (true) ! dollar sign 
rep 9 of (false), ; 

rep 1 of (true), ! period 

rep 1 of (false), ia 

rep 10 of (true) ! digits 

rep 7 of (false), 

rep 26 of (true). ! upper-case letters 
rep 4 of (false,, 

rep 1 of (true) ' underscore 
rep 160 of (false); 


builtin 
spanc; 


POPPA ASA NIM NMANMNNNMIVS LLL LL ESE PAW 
CF oes do Ode eb AS UN PO DONO API MOS wee eee NO 


! First we check the Length of the symbol. 


if (.symbol_ dsc{len) issu 1) or (.symbol_dscllen] gtru .sym_size) then 
anlSformat_error(anlobj$_badsymlen,.sym_size); 


' Now we verify that the symbol is composed of the correct character set. 


in mr oruronrotunonuruny = — — = — = = = = tOOOCOOOCOOCOOO 000000 OO C@mm 
SS OO NO APA AODD wo Pome eS ee Reo 
SOOO OOO OO COC OOO OOOO OOO OO COCO OOOO SOC COC COCO OOOO OOO COCO COCOOCO 


Ware re ale al eal val al al al sh ah ah dh Ah Ah ak Ah Ah hh Ah ah Ah ah Oh Oh Ob Oh Oh Oh Oh dh Oh Oh Oh Ah oh oh A dh eee Oh hb hh ah ah oh hh ah ah 


a a ii 


if spanc (symbol _dscl(len],.symbol_dsc(ptri,symbol _table,tref(ix'ff")) nequ 0 then 


7 
oat agg OBJ tits - General checking Routines 18-sep-1 1984 $:29:70 AX-11 Bliss-32 v4.0 "ae Page 4 
ANLSCHECK_SYMBOL = Check Validity of Symbol 14-Sep-1984 11:52:4 ANALYZ.SRC OBJEXECHK.B 2;1 (3) 
; re R373 anl$format_error(anlobj$_badsymchar); 
: 146 0975 ! Finally, make sure the symbol does not start with a digit. 
5 146 0577 2 if (ch$rchar(. symbol_dsc ptr) ge equ - and 
s 45 0578 (ch$rchar(.symbol_dsc(ptr then 
: 146 0579 anl$format vefror(eniobjs. emt 
: 147 0580 
; 148 0581 return 
3 (149 b25¢ 2 
3 6150 0583 1 end; 


-TITLE OBJEXECHK OBJEXECHK = General Checking Routines 
-IDENT \Vv04=000\ 


-PSECT SPLIT$,NOWRT,NOEXE,2 


OO# 00000 P.AAA: .BYTE O0[32] $ 
01 00020 BYTE : 
QO0# 00021 BYTE OC3] : 
01 00024 BYTE 1 ; 
Q0O# 00025 RYTE OQC9] : 
01 Q002E BYTE 1 ; 
00 Boe Sr BYTE © : 
Q1# 00030 -BYTE 1€10) ; 
00# QOO3A BYTE OC7] : 
014 00041 BYTE 126] ; 
00# 00058 BYTE 0O(4] : 
01 QO05F hi eee : 
00# 00060 BYTE 0(160] : 


P.A 
° ANLOBIS. OK, A a ANYTHING 
-EXTRN ANLOBJ$_D YPE 

-EXTRN ANLOBJS_ “RRORCOUNT 

-EXTRN ANLOBJ$_ERRORNONE 

-EXTRN ANLOBJS_ERRORS, Bare seas EXEFIXA 


-EXTRN ANLOBJS_EXEFIXAIMA 
~-EXTRN ANLOBJS_EXEF IXALINE 
-EXTRN ANLOBJS_EXEF IXCOUNT 
-EXTRN ANLOBJS_EXEFIXEXTRA 
-EXTRN ANLOBJS_EXEFIXFIXED 
~-EXTRN ANLOBJ$_EXEFIXFLAGS 
-EXTRN ANLOBJS_EXEFIXG 

-EXTRN ANLOBJS$_EXEF IXGIMAGE 
-EXTRN ANLOBJS_EXEF IXGLINE 
-EXTRN ANLOBJS$"EXEFIXLIST 
-EXTRN ANLOBJS$_EXEF IXNAME 
~EXTRN ANLOBJS_EXEF IXNAMEO 
~-EXTRN ANLOBJS_EXEFIXP 

-EXTRN ANLOBJS_EXEFIXPSECT 
-EXTRN ANLOBJS_EXEF I1XUP 
~EXTRN ANLOBJS_EXEF I XUPNONE 
~-EXTRN ANLOBJS"EXEGST, ANLOBJ$_EXEHDR 
~EXTRN ANLOBJS_EXEHDRACTIVE 
-EXTRN ANLOBJ$_EXEHDRBLKCOUNT 
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«EXTRN ANLOBJ$_EXEHDRCHANCOUNT 


-EXTRN ANLOBJS$— mb hae te 
-EXTRN ANLOBJ$_EXEHD 

-EXTRN ANLOBJS~ ~EXENDRDST 

EXTRN ANLOBJS$"EXEHDRFILEID 
-EXTRN ANLOBJ$~ “Bibnonr inte 
-EXTRN ANLOBJ$_EXEHD 

EXTRN ANLOBJ$~ “EXEMDRGBL IDENT 
~-EXTRN ANLOBJS_EXEHDRGST 

-EXTRN ANLOBJS_EXEHDRIDENT 
-EXTRN ANLOBJS$_ -piesico e 
~-EXTRN ANLOBJS_EXEHDRISD 

-EXTRN ANLOBJ$_EXEHDRISDBASE 
-EXTRN ANLOBJ$_EXEHDRISDCOUNT 
-EXTRN ANLOBJS_EXEHDRISDFLAGS 
-EXTRN ANLOBJS_ Bh Hea be ty 
-EXTRN ANLOBJ$_EXEHDRISDNUM 
EXTRN ANLOBJS$_EXEHDRISDPF CDEF 
EXTRN ANLOBJS$"EXEHDRISDPFCSIZ 
-EXTRN ANLOBJS_EXEHDRISDTYPE 
-EXTRN ANLOBJ$"EXEHDRISDVBN 
-EXTRN ANLOBJS$_EXEHDRLINKID 
EXTRN ANLOBJ$~EXEHDRMATCH 
EXTRN ANLOBJ$_EXEHDRNAME 
EXTRN ANLOBJ$_EXEHDRNOPATCH 
-EXTRN ANLOBJ$_EXEHDRPAGE COUNT 
EXTRN ANLOBJ$—EXEHDRPAGEDEF 
-EXTRN ANLOBJ$_EXEHDRPATCH 
-EXTRN ANLOBJ$~ RT et he, 
EXTRN ANLOBJS$_EXEHDRPRIV 
-EXTRN ANLOBJ$_EXEHDRROPATCH 
-EXTRN ANLOBJS$_EXEHDRRWPATCH 
EXTRN ANLOBJ$_EXEHDRSYMDBG 
EXTRN ANLOBJ$_EXEHDRSYSVER 
EXTRN ANLOBJ$_EXEHDRTEXTVBN 
EXTRN ANLOBJS$S_EXEHDRTIME 
EXTRN ANLOBJS$_EXEHDRTYPEEXE 
EXTRN ANLOBJS_EXEHDRTYPELIM 
EXTRN ANLOBJ$"EXEHDRUSERECO 
-EXTRN ANLOBJS"EXEHDRXFER1 
EXTRN ANLOBJS_EXEHDRXFER 
EXTRN ANLOBJS$_EXEHDRXFER 


-EXTRN ANLOBJ$~EXEHEAD ING 
“EXTRN ANL OB $7 =EXEPAT CH 


-EXTRN ANLOBJ$~ a oe 

~-EXTRN ANLOBJ$_ INTERACT 

-EXTRN ANLOBJ$~ Baty ANLOBJ$_OBJCPRREC 
-EXTRN ANLOBJ$~OBJDBGREC 

-EXTRN ANLOBJ$— “OBEN. ANLOBIS. OBJEOMF LAGS 


TRN ANLOBJ$"~OBJEOMSEVIGN 


iets" 
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ANL CHECK SYMBOL = Check Va 
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ANLOBJ$_OBJEOMSEVRES 


ANC DBS -pBIESD ENVPAR 
ANL JBJ$~OBJGSDEPM 
ANLOBJ$~OBJGSDEPMW 
ANLOBJ$~OBJGSDIDC 
ANLOBJ$~OBJGSDIDCENT 
ANLOBJ$~OBJGSDIDCFLAGS 
ANLOBJ$~OBJGSDIDCMATCH 
ANLOBJ$~OBJGSDIDCOBJ 
ANLOB GSDIDCVAL 


ANLOBJ$— “pasetepate 
ANLOBJ$_OBJGSDPSC 
ANLOBJ$— ~OBIGSDPSCALIGN 
ANLOBJ$— Mat rtet tint! 
ANLOBJ$_OBJGSDPSCBASE 


XREC 
ANLOBJ$_ OBINDRIGNREC 
ANLOBJ$_OBJHEAD ING 
ANLOBJ$_OBJLITINDEX 
ANLOBJ$~OBJLNKREC 


JSRCREC 
ANLOBJ$"OBJSTATHEADING1 


x -B8251 


it 
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iSes 


14-5 


7? 
sep- 
Sep- 


198 


a 99:88! 


i$ AX-11 Bliss-32 V4.0-74 
ANAL YZ. SRC JOBJEXECHK B52; 1 


ANLOBJ$ ee 
TATLIN 


ANLOBJ$~0BJ5 E 
ANLOBJ$~OBJSTATTOTAL 
ANLOBJ$ 


™ STOIM 
ANLOBJ$_OBJTIRVIELD 
ANLOBJ$_OBJTTLREC 
ANLOBJ$_ OBJ VALUE 
ANLOBJ$_OBJUVALUE 
ANLOBJ$~ PROTECTION 


nS SEVERITY 

BUS_TEXT, ANLOBJ$_TEXTHDR 
ANE OBIS" “nosuc HMOD 
ANLOBJ$_BADDATE 
ANLOBJ$_BADHDRBLK COUNT 
ANLOBJ$_BADSEVERITY 
ANLOBJ$_BADSYM1ST 
ANLOBJ$— -BADSYCHAR 
ANLOBJ$_BADSYMLEN 
ANLOBJ$~ ~EXEBADF IXUPEND 


ANLOBJ$~EXEBADPATCHLEN 
ANLOBJ$_EXEBADOBJ 
ANLOBJ$~EXEBADTYPE 
ANLOBJ$~EXEBADXF ERO 
ANL OB $7EXEHDRI SDL ONG 
ANLOBJ$~E XEHDRLONG 
ANLOBJ$~EXEISDLENDZRO 
ANLOBJ$~EXE I SDLENGBL 
ANLOBJ$~EXE I SDLENPRIV 
ANLOBJ$~EXENOTNAT IVE 
AN! OBJSTEXTRABYTES 
-OBJSTFIELDELT 
LOBJ$"FLAGER 
ANLOBJ$~NOTOK, ANLOBJS _OBJBADIDCMATCH 


ANLOBJ$~OBJGSDBADAL IGN 
ANLOBJ$_0B/GSDBADSUBT YP 
ANLOBJ$_OBJHDRRES 


ee 


wevovrlhml™|\, — 


ists" 


FF 


3 Routine Size: 


8F 
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ANLSCHECK_ SYMBOL = <fheck Va 


64 


0000° CF 


83 bytes, 


fi 


Routines 


dity of Symbol 


aR, 
15-Sep-19 
14-Sep-19 


003¢ 00000 
E 00 


55 00006 CF 9E 0000 
54 04 AC DO 0000 
64 BS 000 
08 13 0000D 
10 00 ED 0000F 
OC 1B 0001 
08 AC DD 00017 18 
000000006 8F DD OOOIA 
65 02 FB 00020 
06 B4 64 2B 00023 28: 
02 12 0002¢ 
51 D4 O002E _ 
51 DS 00030 38: 
09 13 00032 
000000006 8F DD 00034 
65 01 FB 0003A 
30 04 B4 91 00030 4s: 
OF 1F 00041 
39 06 B& 91 00043 
09 1A 00047 
000000006 8F DD 00049 
65 01 FB 0004 
04 00052 58: 


Routine Base: 


SCODES + 0000 


Be 4:58:07 


eEXTRN 
»PSECT 


pom Bliss-32 V4.0-76 
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ANLOBJ$_OBJMHDBADRECS12 
ANLOBJ$~OBJMHDBADSTRLVL 


ANALYZES FACILITY 
ANL $F ORMAT_ERROR 


SCODES ,NOWRT 2 


ANLSCHECK SYMBOL, Save R2,R3,R4,R5 
ANL$FORMAT_ERROR, RS 
SvABOL , RG 


1$ 

0. #16, (R4), SYM_SIZE 
SYM_SIZE 
#ANCOBJ$_BADSYMLEN 

#2, ANLSFORMAT_ERROR 
(Rd), a4(R4), SYMBOL_TABLE, #255 
R1 

4$ 

#ANLOBJ$_BADSYMCHAR 

#1, ANLSFORMAT_ERROR 
Q4(R4), #48 

a4(R4), #57 

5$ 


#ANLOBJ$_BADSYM1ST 
#1, ANLSFORMAT_ERROR 


Page 


0540 


0543 
0567 


0568 


0572 


0573 
0577 
0578 
0579 
0583 
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1 g $88 1 Zsbttl ‘ANLSCHECK_WHEN = Check Date/Time Field’ 
1 5 1 tee 
1 5 $ 1! Functional Description: 
: 5 2 ; This routine is called to check the format of a date/time field. 
139 5 1 ! Formal Parameters: 
1 : 5 when The address of a descriptor of the field. 
1§ 591 1! 
160 B26 1! Implicit Inputs: 
161 595 1! global data 
106 0594 1! 
16 0595 1 ! Implicit Outputs: 
164 3238 oe global data 
165 0597 1! 
166 0598 1 ! Returned Value: 
167 0599 1! 
168 0600 1! 
169 0601 1 |! Side Effects: 
170 0602 1! 
171 06035 1 !-- 
"6 0604 1 
17 0605 1 : 
174 Zone 2 global routine anl$check_when(when): movalue = begin 
175 060 
176 0608 bind 
177 0609 when_dsc = .when: descriptor; 
178 0610 
179 0611 2 local 
180 poi¢ 2 when_ok: byte, 
181 0615 2 char: byte, 
182 0614 2 char_ok: byte; 
183 0615 2 
184 0616 2 : 
185 0617 2 ! First we check the length of the date field. 
186 0618 2 
187 0619 2 when_ok = .when_dscClen] eqiu 17; 
188 0620 2 i 
4 4 bes! 2 ! Now we scan each character of the date and make sure that it is valid. 
191 $698 : incru i from 0 to minu(.when_dscClen]-1,17-1) do ( 
192 0624 3 ; 
193 0625 ; char = ch$rchar(.when_dsc[ptrJ+.i); 
194 0626 : 
195 0627 ; case .i from 0 to 16 of set 
196 0628 % (0, 12): char_ok = (.char eqlu * *) or 
197 +494 5 ((.char gequ '0') and (.char lequ '9')); 
198 0630 3 . ¥. 
199 0631 3 7 to 10, 
00 ott 3 ° 
4 boez 3 15 to 16): char_ok = (.char gequ '0") and (.char lequ '9'); 
08 0635 (2, 6): char_ok = .char eqlu ‘='; 
04 0636 
05 0637 (3 to 5): char_ok = ((.char gequ ‘A') and (.char lequ 'Z")) or 
43 0638 ((.char gequ ‘a') and (.char lequ ‘2")); 
0 0639 
208 0640 


(11): char_ok = .char eqlu * °; 


allan ll 
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3 1 
3 ¢) [14]: char_ok = .char eqlu °:'; 
3 1} c§ tes; 
; when_ok = .when_ok and .char_ok; 
18 0645 hen_ok d z 
Ro Rep 
s 215 
3 i$ peek ! If the date wasn’t valid, print an error message. 
; 218 0630 if not .when_ok then 
; 219 065 an\ $format_error(anlobj$_baddate); 
3 0 b03¢ 
: 1 065 return; 
: $58 0688 end 
3 end; 
O3FC 00000 eENTRY ia SCE CR _LWNER. Save R2,R3,R4,R5,R6,R7,R8.- = 0606 
56 046 AC 00 00002 MOVL WHEN, R6 3; 0609 
50 D4 00006 CLRL R 3; 0619 
11 66 81 00008 CMP (R6), #17 : 
02 12 00008 BNEQ 1$ : 
50 D6 0000D INCL RO 3 
58 50 90 OOOOF 1$: MOVB RO, WHEN_OK : 
57 66 3¢€ 0001 MOVZWL (R6), R7 > 0623 
57 07 0001 DECL ke 3 
10 57 D1 0001 CMPL R7, #16 3 
03 1B QOOI1A BLEQU 2$ 3 
57 10 pO O001C MOVL #i6, R7 : 
52 D4 OOOIF 2% CLRL 3 
OOBF 31 00021 BRW 248 3 
51 04 B642 90 00024 3$: MOVB @4(R6)CI], CHAR : 0625 
10 52 CF 00029 CASEL I, #0, #16 : 0627 
0058 003D 0022 0002p 4$ WORD 5$-4$,- : 
0030 0058 0061 0061 000 8$-4$,- 2 
0098 003D 003 003D 00030 11$-4$,- ; 
0030 O0A2 003D 00 00045 12$-4$,- ; 
0030 0004D 12$-4$,- 3 
12$-4$,- + 
11$-4$,- : 
8$-4$,- : 
8$-4$,- . 
8$-4$,- . 
&$-4$,- 3 
18$-4$,- ; 
5$-4$,- . 
8$-4$ = 7 
19$-4$,- ; 
-4$,- : 
8$-4$ 3 
54 D4 OOO4F 5$: CLRL R4 ; 0628 
20 51 91 00051 CMPB CHAR, #32 ; 
02 12 00054 BNEQ 6$ ; 


ted 
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55 50 
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4 


INCL g 
68% CLRAL at 
CMPB cuan. #48 
BLSSU ; 
INCL S 
7$: CLAL RO 
CMPB trig “57 
BLEQU $s 
BRA 17$ 
&$: CLAL R3 
CMPB CHAR, #48 
BLSSU 4 
INCL R 
9$: CLRL RO 
CMPB CHAR, #57 
BGTRU 108 
INCL 
10$: aioe RS, RS 
BICB3 R&. RO, CHAR_OK 
BRB 23$ 
11$: CLRL RO 
CMPB CHAR, #45 
BEQL 1$ 
BRB 2$ 
12% CLRL RO 
CMPB CHAR, #65 
BLSSU 13$ 
INCL RO 
13% CLRAL R4 
CMPB CHAR, #90 
BGTRU 14$ 
INCL RG 
14$ MCOM RO, R3 
BICL R3, RG 
CLRL R 
CMPB CHAR, #97 
BLSSU 15$ 
INCL R3 
15$ CLRL RO 
CMPB CHAR, #122 
BGTRU 178 
16$: INCL RO 
17$: MCO R35, RO 
BICL R9, RO 
BISB3 4. RO, CHAR_OK 
BRB 23 
18% CLRL RO 
CMPB CHAR, #32 
BRE 20$ 
19%: CLRL RO 
CMPB CHAR, #58 
O$: BNEQ 228 
1$: INCL RO 
$e: MOVB RO, CHAR_OK 
$: MCO CHAR_OK, RO 
BICB2 RO, QHEN_OF 
INCL l 


0633 


0635 


; 0637 


0638 


0637 
0640 


0642 


0645 
0625 


eects" 


3; Routine Size: 


ag rn = General Chegh tng 
ANLSCHECK WHEN = Check Date/T 


57 


00006 ¢ 


250 bytes, Routine Base: 


Routines 
ime Field 


08 
; 000000006 &F 


A 


01 


SCODES + 0053 


i 7 
15-Sep-19 
14-Sep-19 


Be {4:58:07 


ote Bliss-32 V4.0-74 
ANAL YZ. SRC JOBJEXE CHK .852;1 


cmp R7 
actRu 25$ 
BRw % 
BLBS WHEN 


OK, 26% 
#an.08/$_BADDATE 
#1, ANLSFORMAT_ERROR 


PA 
WF wr 


FER IS SENS 


o 
u 


SS 


RoPoPsPonsnenefty 
~~ 
=—3 


~ 


7 
pose rete = General Checking Routines 15-sen-1984 $328: 20 oot Oi fegeze v4.0-74 Page 13 
ANLSCHECK_FLAGS = Check Flag Usage 16-Sep-19 2$2:4 ANAL YZ. SRC JOBJE XE CHK .852;1 (5) 
] Bsbttl “ANLSCHECK FLAGS = Check Fiag Usage’ 
lee 
; 1 ! Functional Description: 
; : his routine is called to check the usage of flags in a flag 
: byte/word/longword. 
¢ 1 i Formal Parameters: 
2B: flags A longword concen the flags to be checked. 
,} tlag def A longword vector de _—e the valid flags. The 
ee eo zeroth Longword contains the bit number of the 
POOs 1} Last valid flag. The remaining longwords contain 
; zero if the flag is unused, non-zero otherwise. 
9 1! Implicit Inputs: 
4 : globat data 
% 1 | Implicit Outputs: 
¢ Shs global data 
0674 1! 
0675 1 ! Returned Value: 
pore 1} one 
tiga E 
0678 1 ! Side Effects: 
gery 1} 
0 1 tee 
0681 1 
pone 1 ; 
eet global routine ani $check_flags(flags,flag_def): novalue = begin 
0685 bind 
2686 flags_vector = flags: bitvector(], 
oe H flag_def_vector = .flag_def: vector[,long); 
89 
$690 ! We will sinely sit in a loop scanning the flag bits. If any flag is 
Rees ' set but undefined, we will issue an error message. 
069 incru i from 0 to 31 do ( 
0694 if .flags_vector(.i] then 
0695 4 i? wi Leqy -flag_def_vector[0] then ( 
Boe * f .flag_def_vectorl.i+1] eqlu 0 then ; 
ys 4 bie ant $format_error(anlobj$_flagerror,.i) 
else 
5344 ani$format_error(anlobj$_flagerror,.i); 
9701 ’ 
07 4 return; 
070 
0704 1 end; 
0004 00000 sENTRY ANLSCHECK_FLAGS, Save R2 ; 0683 
2§ D4 00002 CLRL 3 0695 
1D 06 = AC 52 €1 00004 1$: BBC 1, FLAGS_VECTOR, 3% > 0694 


a 


7 
JEKE CHK OBJEXECHK = General Checking Routines 1$-sep-19 3:36:3 Ax-11 Bliss-32 vV4.0-74 . 14 
reat ts ANL SCHECK FLAGS = Check Flag Usage 1a-803-1 980 $3:88:29 PANALYZ -SRe OBJE XE CHK .852;1 — (5) 
08 BC 2 CMPL aFLAG_DEF ; 0695 
A BGTRU é 
50 ee wear | MOV @FLAG_DEFCIJ, RO 3; 0696 
A TSTL 4(ROQ) F 
BNEQ 3 
PUSML =| 3; 0699 
00000000G 8F PUSHL #ANLOBJS$_FLAGERROR : 
0000G CF CALLS #2, ANLSFORMAT_ERROR : 
INCL 3; 0693 
sn CMPL i #3) : 
D BieGu 18 : 
eT : 0704 
3; Routine Size: 46 bytes, Routine Base: SCODES + 0140 
3 7% 48 1 
is 27s 706 0 end eludom 
3 PSECT SUMMARY 
; Name Bytes Attributes 
; SPLITS 56 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; S$CObES 79 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 
: men eaweaa Symbols es ce ae oe Pages Processing 
ls File Total Loaded Percent Mapped Time 
: ~$2558DUA28: (SYSLIBISTARLET.L32;1 9776 10 0 581 00:01.0 
ig COMMAND QUALIFIERS 
is BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LISS$:OBJEKECHK/OBJ=OBJ$:OBJEXECHK MSRC$:OBJEXE CHK/UPDATE = (ENH$: OBJE XE CHK) 
; Size: 379 code + 256 data bytes 
Run Time: 10.1 


Elapsed Time: 00:21,1 
Lines/CPU Min: 4185 
Lexemes/(PU-Min: 13974 
Memory Used: 143 pages 


7 
JEKE CHE OBJEXECHK = General Checking Routines 18.5, -1984 23:36:30 VAK-11 Bliss=32 v4.0-742 P 15 
; rhe ty ARCS CHECK FLAGS = Check Flag Usege ~ ' — 


; Compilation Complete 


